home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / misc / Progr_Langs.lha / Progr_Langs / Source / exe_timer.b next >
Text File  |  1997-07-25  |  218b  |  12 lines
  1. DECLARE FUNCTION DateStamp LIBRARY "dos.library"
  2. DIM v&(2)
  3. DateStamp(varptr(v&))
  4. t1&=peekl(varptr(v&)+8)
  5. SYSTEM arg$(1)
  6. DateStamp(varptr(v&))
  7. t2&=peekl(varptr(v&)+8)
  8. t3&=t2&-t1&
  9. print t3&;" Datestamps."
  10. LIBRARY CLOSE
  11.  
  12.